#!/usr/bin/perl -w
use strict;
use Getopt::Long;

#88888888888888888888888888888888888888888888888888888888888888888888888888888888

#	Usage

#88888888888888888888888888888888888888888888888888888888888888888888888888888888

system("matrix_extract -S -i s -o s -v -H -N names.map < test.matrix.s > short.matrix.s");
system("short_to_long_names.pl -N names.map -v  short.matrix.s > long.matrix.s");
my @diff = `diff test.matrix.s long.matrix.s`;
if (@diff != 0)
{
	print STDERR "FAILED\n";
}
else
{
	print STDERR "ROUND TRIP SUCCESS!!!\n";
}

unlink("long.matrix.s") or die;
unlink("names.map") or die;
unlink("short.matrix.s") or die;